home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / PlaceText.mod < prev    next >
Text File  |  1993-08-19  |  398b  |  12 lines
  1.     /* Print at */
  2.     PlaceText:
  3.      t = 'Enter details as shown, retaining all commas.'
  4.      u = 'x,y,colour,background colour,Required text'
  5.      s = Request(100,30,t,u,'Okay','Cancel')
  6.      if s ~= '' then do
  7.       parse var s x ',' y ',' co ',' bg ',' txt
  8.       call SetAPen(HO,co) ; call SetBPen(HO,bg) 
  9.       call Move(HO,x,y) ; call Text(HO,txt) ; call SetAPen(HO,1)
  10.       end
  11.      return
  12.